home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 179
/
179.d81
/
b.geo-stars 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
87 lines
10 poke53281,0:poke53280,0:print"[147]"
12 dt$="......................................................................"
20 dv=peek(186):ifdv<8thendv=8
30 printtab(13)"[155][215]alt [200]arned's[129]"
40 print" [176][192][192][174][176][192][192][174][176][192][192][174] [176][192][192][174][176][192][178][192][174][176][192][192][174][176][192][192][174][176][192][192][174]
42 [153]" (NULL) tan^-tan< (NULL) (NULL) tan /tantan^ (NULL) -tantan<-=tanexp/tantan^
44 print" [173][192][192][189][173][192][192][189][173][192][192][189] [173][192][192][189] [177] [189] [173][189][173][192][189][173][192][192][189]"
46 print" [176][192][192][174][176][192][192][174][176][192][174] [176][176][192][178][192][174][176][192][192][174][176][192][192][174][176][192][178][192][174]
48 [153]" (NULL) (NULL) (NULL)(NULL) (NULL) (NULL) (NULL) -tan< /tantan^ (NULL)
50 print" [173][192][192][189][173][192][192][189][189] [173][192][189] [177] [173][192][192][189][173][192][192][189] [177]
60 [153]" 1cont - (NULL)rint out a lenontest peekallot
62 print" 2[154] - [210]eturn to [204][207][193][196][211][212][193][210]
70 [151]198,0
80 [161]a$:[139]a$[178]""[167]80
90 [139]a$[178]"2"[167]40000
100 [139]a$[179][177]"1"[167]80
110 [153]" syschr$et printer ready and press a key.conton"
120 [151]198,0
130 [161]a$:[139]a$[178]""[167]130
140 [159]4,4,7
150 [152]4,,,,"(NULL)atn(NULL)(NULL) left$atn(NULL)(NULL)valstr$'(NULL) chr$val(NULL)-(NULL)(NULL)atn(NULL)(NULL) len(NULL)(NULL)(NULL)val(NULL)(NULL)
160 print#4:print#4:print#4
170 print#4,,"[206][193][205][197]:"+left$(dt$,61)
180 print#4
190 print#4,,"[193][196][196][210][197][211][211]:"+left$(dt$,58)
200 print#4
210 print#4,,"[195][201][212][217]:"+left$(dt$,30)+"[211][212][193][212][197]:"+left$(dt$,10)+"[218][201][208]:"+left$(dt$,11)
220 print#4
230 print#4,,"[198]ill in the information above and then fill in the names of the
240 [152]4,,"actors shown in the geo(NULL)aint document. atnn anagram of the name of
250 print#4,,"each actor is given to help you. [212]hen send your entry to:
260 [152]4
270 [152]4,,,"chr$eo-(NULL)tars lenontest
280 print#4,,,"606 [195]ommon [211]treet
290 [152]4,,,"(NULL)hreveport (NULL)atn 71101
300 print#4:print#4
302 print#4,,"[193]nagrammed [206]ame [210]eal [206]ame
304 [152]4,,"-----------------------------"
306 [152]4
310 [152]4,,"atnlenright$str$ val(NULL)(NULL) atn(NULL)(NULL)(NULL) -- "[170][200](dt$,49)
312 [152]4
320 [152]4,,"peekatnstr$ len(NULL)(NULL)(NULL)atn(NULL) (NULL)(NULL)(NULL)val -- "[170][200](dt$,47)
322 [152]4
330 [152]4,,"chr$right$(NULL)atn mid$val(NULL) left$val(NULL) -- "[170][200](dt$,50)
332 [152]4
340 [152]4,,"peekval(NULL)(NULL) (NULL)(NULL)(NULL)val -- "[170][200](dt$,53)
342 [152]4
350 [152]4,,"(NULL)atn(NULL)chr$ atn(NULL)right$lenval mid$(NULL)(NULL)val -- "[170][200](dt$,47)
352 [152]4
360 [152]4,,"(NULL)atn(NULL) len(NULL)(NULL)val atn(NULL)right$(NULL)val -- "[170][200](dt$,48)
362 [152]4
370 [152]4,,"(NULL)(NULL)(NULL)chr$ peek(NULL) len(NULL)right$peek -- "[170][200](dt$,50)
372 [152]4
380 [152]4,,"(NULL)left$(NULL) chr$atn(NULL) peekatnpeekval -- "[170][200](dt$,50)
382 [152]4
390 [152]4,,"(NULL)left$(NULL)atn mid$val(NULL)(NULL)(NULL) -- "[170][200](dt$,52)
392 [152]4
400 [152]4,,"chr$(NULL)str$ (NULL)(NULL)(NULL)left$ len(NULL)(NULL)(NULL)right$val(NULL) -- "[170][200](dt$,46)
402 [152]4
410 [152]4,,"atn str$(NULL)(NULL)(NULL)left$right$(NULL)(NULL) (NULL)right$(NULL)val -- "[170][200](dt$,47)
412 [152]4
420 [152]4,,"atn str$val(NULL)(NULL)val(NULL) (NULL)(NULL)right$(NULL)val -- "[170][200](dt$,48)
422 [152]4
430 [152]4,,"(NULL)(NULL)right$(NULL)val chr$(NULL)(NULL) (NULL)(NULL)(NULL) -- "[170][200](dt$,49)
432 [152]4
440 [152]4,,"right$(NULL) left$(NULL)(NULL) peek(NULL)(NULL)chr$(NULL) -- "[170][200](dt$,50)
442 [152]4
450 [152]4,,"atn (NULL)(NULL)(NULL)atn(NULL) (NULL)val(NULL)(NULL) -- "[170][200](dt$,50)
452 [152]4
460 [152]4,,"(NULL)valval(NULL) (NULL)val(NULL)(NULL)(NULL)(NULL) -- "[170][200](dt$,51)
470 [152]4:[160]4
480 [151]186,dv
490 [153]" on"
500 [137]70
999 [137]999
10000 d[178][194](186):n$[178]"0:b.geo-stars 1":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[142]
40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]